38888 
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AOAAAAOAOAOOAONY 


SSSSSSSsss 


AAA AA Ht St tH A 
AAA St A 
AAAS AS a a st st se 


L 
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LLELLLLLLLLLELLLL 
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ad 


**F ILE**1D**COBCVTRPO 

cccccccc 000000 BBBBBBBB ccecccccce «CW VV TTTTTITTTTT RRRRRRRR PPPPPPPP QQQQaQ 
ccccccce 000000 B8BBBBBB cecccccce «(WV VV TTTTTTTTTT RRRRRRRR PPPPPPPP Qaqaqaaa 

cc 00 00 8B BB CC VV VV TT RR RR PP PP QQ QQ 

cc 00 00 688 BB CC VV VV TT RR RR PP PP QQ QQ 

cc 00 00 8B BB CC VV VV TT RR RR PP PP QQ QQ 

cc 00 8B cc VV VV TT RR RR PP PP QQ QQ 

cc 00 00 88888888 cc VV VV TT RRRRRRRR PPPPPPPP QQ QQ 

cc 00 00 cc VV VV TT RRRRRRRR PPPPPPPP QQ QQ 

cc 00 00 BB BB CC VV VV TT RR RR PP QQ QQ aa 

CC 00 00 BE BB CC VV VV TT RR RR PP QQ QQ QQ 

cc 00 00 6B BB CC VV VV TT RR RR PP QQ QQ ceee 

cc 00 88 cc vv TT RR RR PP QQ Qo cece 
cccccccc 000000 BBEBBBBB cccccccc VV TT RR RR PP QaQqQ aa sees 
cccccccc 000000 BBBSBBBB cccccccc VV TT RR RR PP QaaQ aa cece 

LL III] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] $$ 

LLLLLLLLLL T1111] SSSSSSSS 

LLLLLLLLLL HI! SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
CORPORATION. ’ 
e 
* 
* 
® 
® 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. 
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MARARSAAZALASLASELALALALALLAASASSALE LASERS SARS ARR R RRR A SERRA SRSA RRR A RRR AAR RRA SRDS SD | 


PA gale COBOL TYPE CONVERSION 
"ABSTRACT: 


This module contains the routine which couverts signed packed 
decimal numbers to quadword (64-bit) binary with rounding. 


VERSION: 1 
HISTORY: 


AUTHOR: 
John Sauter, 16-JAN-1979 


MODIFIED BY: 


COOCOCCOCOOOCOOCOOCOOOSCOOOOCSCOOOOCOOCOOOOOCOOCOOOOOOOOOOOoOOo 
SOOOCCOCOCOOSCOOSCOOSOOCOSOSCOSCOCSOOSSOSOSOOSOOSOOOOOOOOOOOOOSoO 
SOOCoooooooooooooooooooooooooooooooooooooooooo 
COOCOCOCOCOSOCOSOSOSSOS SS GSOCSGSOCSSCOCOCOOOCOOOCOOOOCOOOOOOooOoO 
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; Detailed Current Edit History 6-SEP-19 COBRTL.SRCIJCOBCVTRPQ.MAR; 1 
~SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of COBCVTRPQ 


Original. ~ 16=JAN-1979 

Bug fixes and cleanup... MLJ 10-Mar-1979 

19 digit La po MLJ 13-Mar-1979 

Correct problem with high order longword. MLJ $378 -Mar-1979 
Correct round toward gore probe em. PDG 12-Jul-1979 
Cosmetic changes. RKR 18-0CT 


pole ej oleleleleoleleolo) 
SOoQooooooooo 
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68 61 -SBTTL DECLARATIONS 
0088; 
88 64 ; INCLUDE FILES: 
0 65 ; 
0000 66 
8308 67 ; 
$38 68 ; EXTERNAL SYMBOLS: 
000 69 ; NONE 
4 70 ; 
00073 
$009 ~ ; MACROS: 
0000 74 ; NONE 
0000 {> 3 
0000 76 
0000 fs 
0000 78 ; PSECT DECLARATIONS: 
00000000 79 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 80 
0000 81 ; 
0000 86 ; EQUATED SYMBOLS: 
0000 83 ; NONE 
0000 84 ; 
0000 85 
0000 86 ; 
0000 87 ; OWN STORAGE: 
0000 88 ; 
0000 89 5+ 
0000 90 ; The fol Loving constant has the value 2**32. It is used for scaling 
sit 4 ; the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 sie $8 BIAS: «PACKED 4294967296 3 2232 
0006 95 ; The following constant is 2**32-1. It is subtracted from negative numbers, 
Bope 38 3; to compensate for DIVP truncating toward zero. 
5C 29 67 49 29 04 9006 98 BIAS_1: .PACKED 4294967295 ; 2ee52-1 


QO00000A 000C 100 BIAS_DIGITS=10 
oooc§=6101 ; 
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«SBTTL COBSCVTRPQ_R9 


COBSCVTRPQ_R9 C 
1-006 ¢ 


oc 
z7 


5*> 
; FUNCTIONAL DESCRIPTION: 
Converts packed to quadword (64-bit integer) with rounding 
CALLING SEQUENCE: 
JSB COBSCVTRPQ_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.waq.r) 
Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
representation of the source must be 
multiplied to scale the same as the 
internal representation of the dest. 

SRCLEN.rl.v The number of digits in the source 

SRC.rp.r The number to be converted 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 


OUTPUT PARAMETERS: 


SOoOooooooooooooooooooooooooo 
SOoOoCOooOooCoOooooooooooooooo 


So 

o 

o 

o 
ce ce cc ce ce ee ce ce ce cc ce ce ce ce ce cd ee ce ca ed cn ce ee eh ce eee ce ee ee ee ee ce eee ee ee ee ee ee ee a ee ee ee ee ee ed eed 
PVPS BS BS BS BE EE S* WINN NI WII WIIPODININININNNPODYD 2 2 2 SS SS OOOOOOO 
DWONOAOUE WN O OOO NA UE WIN 9 OO NAME WN OC OO NAME WW O OONAUE WR OOONAOULWW 


000C 
0006 DST.waq.r The place to store the converted number 
000C IMPLICIT OUTPUTS: 
000C 
000C NONE 
000C 
5 FUNCTION VALUE: 
000C 1 = SUCCESS, 0 = FAILURE 
000C 
000C SIDE EFFECTS: 
000C , 
000C Destroys registers RO through R9. 
000C 
000C -- 
tit 
00Cc COBSCVTRPQ_RI:: 

; 00C SUBL2 #24,SP ; Make room for temp storage 
0O0F ASHP R6,R7, (RB), 4#5,419,(SP) =; Scale and integerize number 
0016 : also clears RO) ; 

1D bat rs BVS 11$ : If overflow, won't fit in 64 bits 
001 3; Since quadwords often have their hign 32 bits unused, try to convert 
01 ; the packed number to a longword. If it succeeds, we need only spread 
a ; the sign bit. If it fails we will have more work to do. 
36 001 CVTPL #19, (SP), (R9) ; Convert to longword 
001C ; (also clears RO) 
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B 1D OO1C 160 BVS 108 3; Can't fit in 32 bits 
69 89 €1 8F 78 4 161 ASHL #-31,(R9)+,(R9) 3 Success: spread sign bit 
8 d8 196 INCL 3 Indicate success, 
Se C 0 16 ADDL2 #24,SP ; Remove temp storage 
05 § 8 a RSB 3; Return to caller. 
029 198 3 gene here if she packed number won't t fit in 32 bits. 
4 19 ; Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 AE E9 $6 9 189 ios: BLBC 9(SP),12$ g taal ;4 ositive 
6E 13. DS AF OA $$ 002D 170 SUBP4 #BIAS. DIGITS,BIAS_1,419, (SP) e more negative 
13 6€ 13 «C9 AF OA 2 00 ; 171128: DIVP #BIAS Digits BIAS #19, (SP) #19, 13tsP) 
04 A965 5 36 003C Ze CVTPL) #19,(R5),4(R9) ; Convert and store high bits 
0041 17 3 (also clears RO) 
02 1D 0041 174 BVS 11$ ; Number too large for a or integer 
50 D6 0043 175 INCL RO : Indicate success, RO = 
5E 18 CO 0045 176 11$: ADDL2 #24,SP ; Remove temp storage 
05 0048 177 RSB ; Return to cailer 
0049 178; 
0049 179 END 
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Symbol tabTe 984 10:43:5 COBRTL. SR C108 OBCVTRPQ.MAR; 1 (4) 
BIAS 00000000 R 01 
BIAS_1 aie R 01 
BIAS_DIGITS = QOO00000A 
COBSCVTRPQ_R9 Q000000C RG 01 
pwr oma wean ae a ees fe 
: Psect synopsis ! 
prea nw eno eeeeceemat 
PSECT name Allocation PSECT No. Attributes 
» OS 00000000 9. 9 ( Q.) NOPIC USR CON ABS LCL wen NOEXE NORD NOWRT NOVEC BYTE 
_COBSCODE 00000049 ( 7 1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
se emowaomsnma se aac nm one aonmae + 
H ;_Per formance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 32. 00:00:00.05 00:00:00 -22 
zomnene processing 111 00:00:00.32 00:00:02.65 
s 1 69 00:00:00.30 00:00:02.08 
ea table sort 00:00:00.00 00:00:00.00 
Pass 2 45 00:00:00.26 00:00:02.01 
Symbol table output 2 00:00:00.00 00:00:00.04 
Psect synopsis output 2 00:00:00.01 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:90.00 
Assembler run totals 263 00:00:00.94 00:00:07.40 


The working set Limit was 900 pages. 

2106 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 3 local symbols. 
179 source Lines were read in Pass 1, erodes Se 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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‘ ; Macro Library statistics H 


Macro Library name Macros defined 

~5255S$DUA28: CSYSLIBISTARLET .MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LI1S$:COBCVTRPQ/OBJ=O0BJ$:COBCVTRPQ MSRC$:COBCVTRPQ/UPDATE=(ENHS: COBCVTRPQ) 


‘AH-BT13A-SE NT CORPORATION 
VAX/VMS V4.0 | D_ PROPRIETARY 


0061 


